Small Time Crooks Press Kit/Small Time Crooks Press Kit.iso/pc/Small Time Crooks.dxr/Scripts_22_Photo Select-Toggle Button.ls

Text File | 2000-04-30 | 4.6 KB | 144 lines

property pPhotoName, pWhatChanges, pWhatShows, pDestination, pGroupName, pInitialState, pNumStates, pComplexString, ancestor
global gCurrentPhoto, gDownloadPhotos

on beginSprite me
  set previousItemDelimiter to the itemDelimiter
  set the itemDelimiter to "."
  set pPhotoName to item 1 of the name of the member of sprite the spriteNum of me
  set the itemDelimiter to previousItemDelimiter
  if pWhatShows = #gCurrentPhotoStatus then
    if pInitialState = #on then
      set gCurrentPhoto to pPhotoName
      sendAllSprites(#UpdateDetail, #photo)
    end if
  else
    if pWhatShows = #selectedToDownLoadStatus then
      if pPhotoName = "gCurrent" then
        if getPos(gDownloadPhotos, gCurrentPhoto) then
          set pInitialState to #on
        else
          set pInitialState to #off
        end if
      else
        if getPos(gDownloadPhotos, pPhotoName) then
          set pInitialState to #on
        else
          set pInitialState to #off
        end if
      end if
    end if
  end if
  if pNumStates = #complex then
    set pNumStates to value(pComplexString)
  end if
  set numTrans to pNumStates
  if pWhatShows = #nothing then
    set togSty to 0
  else
    set togSty to 1
  end if
  set selfTog to pWhatChanges = pWhatShows
  set togGrup to pGroupName
  set togState to pInitialState
  if pWhatShows = #gCurrentPhotoStatus then
    set togOffbl to 0
  else
    if pWhatShows = #selectedToDownLoadStatus then
      set togOffbl to 1
    end if
  end if
  if pWhatChanges = #gCurrentPhotoStatus then
    set togOnOthOff to 1
  else
    set togOnOthOff to 0
  end if
  set ancestor to new(script "Bitmap But 1", the spriteNum of me, numTrans, togSty, togGrup, togState, togOffbl, selfTog, togOnOthOff)
  UpdateWhatItShows(me)
end

on MouseUpAction me
  if pWhatChanges = #gCurrentPhotoStatus then
    set gCurrentPhoto to pPhotoName
    sendAllSprites(#UpdateDetail, #text)
    sendAllSprites(#UpdateWhatItShows)
  else
    if pWhatChanges = #selectedToDownLoadStatus then
      if pPhotoName = "gCurrent" then
        if not getPos(gDownloadPhotos, gCurrentPhoto) then
          append(gDownloadPhotos, gCurrentPhoto)
        else
          deleteAt(gDownloadPhotos, getPos(gDownloadPhotos, gCurrentPhoto))
        end if
      else
        if not getPos(gDownloadPhotos, pPhotoName) then
          append(gDownloadPhotos, pPhotoName)
        else
          deleteAt(gDownloadPhotos, getPos(gDownloadPhotos, pPhotoName))
        end if
      end if
    end if
  end if
  if pDestination <> EMPTY then
    go(pDestination)
  end if
end

on MouseDownAction me
  nothing()
end

on MouseEnterAction me
  nothing()
end

on MouseLeaveAction me
  nothing()
end

on UpdateWhatItShows me
  if pWhatShows = #selectedToDownLoadStatus then
    if pPhotoName = "gCurrent" then
      if getPos(gDownloadPhotos, gCurrentPhoto) then
        set state to #on
      else
        set state to #off
      end if
    else
      if getPos(gDownloadPhotos, pPhotoName) then
        set state to #on
      else
        set state to #off
      end if
    end if
    if not (state = the pToggleState of me) then
      set the pToggleState of me to state
      setstate(me, the pCurrentState of me)
    end if
  end if
end

on getPropertyDescriptionList me
  set description to [:]
  addProp(description, #pInitialState, [#default: #off, #format: #symbol, #comment: "Initial State", #range: [#off, #on]])
  addProp(description, #pWhatChanges, [#default: #gCurrentPhotoStatus, #format: #symbol, #comment: "What It Changes", #range: [#nothing, #gCurrentPhotoStatus, #selectedToDownLoadStatus]])
  addProp(description, #pWhatShows, [#default: #gCurrentPhotoStatus, #format: #symbol, #comment: "What It Shows", #range: [#nothing, #gCurrentPhotoStatus, #selectedToDownLoadStatus]])
  addProp(description, #pGroupName, [#default: "PhotoButtons", #format: #string, #comment: "Toggle Group Name"])
  addProp(description, #pDestination, [#default: EMPTY, #format: #string, #comment: "Frame Destination"])
  addProp(description, #pNumStates, [#default: 3, #format: #symbol, #comment: "Number of States", #range: [2, 3, 4, 5, 6, #complex]])
  addProp(description, #pComplexString, [#default: "[[1,0],[1,0],[1,0],[#m,0],[#m,0],[#m,0]]", #format: #string, #comment: "Complex State Description"])
  return description
end

on getBehaviorDescription me
  set endChar to offset("--END OF HEADER", the text of me)
  set endLine to the number of lines in char 1 to endChar of the text of me - 1
  set description to line 1 to endLine of the text of me
  repeat with whichLine = endLine down to 1
    if line whichLine of description = EMPTY then
      delete line whichLine of description
    end if
  end repeat
  delete line 1 of description
  return description
end